home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of Asia Pacific / USGS Maps Showing Geology, Oil & Gas Fields of Asia Pacific.iso / pc / ASPAC / VIEWS03 / SCRIPTS / SIZE.AVE < prev    next >
Text File  |  1999-03-10  |  2KB  |  65 lines
  1. ' size.ave
  2. ' Zooms the view to total extent
  3. ' Douglas Steinshouer 11/15/1998
  4. ' GeoLukas for USGS GEO CERT World Energy Project
  5. ' Thomas Ahlbrandt   Project Chief
  6.  
  7.  
  8. theView = av.GetActiveDoc
  9. region3 = av.GetProject
  10. east = region3.FindDoc("Plate 1:  East Asia Geology, Oil/Gas Fields and Geologic Provinces")
  11. seast = region3.FindDoc("Plate 2:  Southeast Asia Geology, Oil/Gas Fields and Geologic Provinces")
  12. aus = region3.FindDoc("Plate 3:  Australia and New Zealand Geology, Oil/Gas Fields and Geologic Provinces")
  13. leg = region3.FindDoc("Geologic Legend")
  14.  
  15.   
  16.   if (theView = east) then
  17.    mapzoom = Rect.MakeXY(-3210000,-1610000, 3230000,3400000)
  18.   elseif (theView = seast) then
  19.    mapzoom = Rect.MakeXY(-5307000,-2775000, 2622000,3935000)
  20.   elseif (theView = aus) then 
  21.    mapzoom = Rect.MakeXY(-4163000,-4317000, 4729000,3184000)
  22.   elseif (theView = leg) then
  23.    mapzoom = Rect.MakeXY(0,0, 11,8.5)
  24.   end
  25.  
  26. reg3DocWin = theView.GetWin
  27. reg3DocWin.Open
  28. reg3DocWin.Maximize
  29. theView.GetDisplay.ZoomToRect(mapzoom)
  30.  
  31. if (theView <> leg) then
  32. theTheme = theView.GetThemes.Get(5)
  33. theTheme.GetGraphics.SelectLabels
  34. theTheme.GetGraphics.Invalidate
  35. theView.GetGraphics.ClearSelected
  36.  
  37. ' t = theView.GetThemes
  38. ' t2 = t.Get(0)
  39. t2 = theView.GetThemes.Get(0)
  40. t2.SetActive(true)
  41. t2.GetGraphics.SelectLabels
  42. t2.GetGraphics.Invalidate
  43. theView.GetGraphics.ClearSelected
  44.  
  45. citylabel = Labeler.Make(mapzoom)
  46. citylabel.SetFeatureWeight(#LABEL_WEIGHT_NO)
  47. citylabel.SetLabelWeight(#LABEL_WEIGHT_HIGH)    
  48. citysymbol = TextSymbol.Make
  49. citysymbol.SetFont(Font.Make("Univers","Italic"))
  50. citysymbol.SetSize(10)
  51. t2.SetLabelTextSym(citysymbol)
  52. citylabel.Load(t2)
  53. theView.GetAutoLabels(citylabel,true)
  54.  
  55. ts = theView.GetThemes
  56.   for each t in ts
  57.     t.SetActive(false)
  58.   end
  59.  
  60.  
  61. end
  62.  
  63.  
  64.  
  65.